home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / maximus / cdcar202.zip / CDMENU.CMD < prev    next >
OS/2 REXX Batch file  |  1994-06-12  |  10KB  |  11 lines
  1. /*                         CD Carousel Door                                */  ;/*                               v2.02                                     */  ;/*                         by Bill Esposito                                */  ;/*                       The Cereal Port BBS                               */;/*                            1:132/152                                    */;/*                           (603)899-3335                                 */;/*                                                                         */;/*                         Magic name 'CDCAR'                              */;/*                         for latest version                              */;/*                                                                         */;/* *********************************************************************** */;/* DISCLAIMER:  This software is provided "AS IS" without any warranty of  */;/* any kind, either expressed or implied.  USE IT AT YOUR OWN RISK.        */;/*                                                                         */;/* Copyright 1993 by Bill Esposito.  This program is SHAREWARE.    Please  */;/* read the file SHAREWRE.TXT included in this archive.                    */;/* *********************************************************************** */;/*                     *****  CDMENU.CMD  *****                            */;/* The CD Carousel Menu program.                                           */;/***************************************************************************/
  2. config=cdcar.cfg;ver='v2.02';f=1;do until lines(config)=0;  param.f=linein(config);  f=f+1;end;ok=stream(config,c,'close');parse var param.1 default junk;parse var param.3 homedir junk;parse var param.5 download junk;parse var param.6 fnum junk;parse var param.7 type junk;parse var param.8 marea junk;parse var param.9 tnode junk;parse var param.10 fnode junk;parse var param.11 sysopfirst sysoplast junk;parse var param.15 pl;yel='';cyan=''
  3. brt='';call RxFuncAdd 'SysloadFuncs','RexxUtil','Sysloadfuncs';call sysloadfuncs;menu:;say'HOS/2OS/2OS/2OS/2OS/2';say'1HOS/2OS/2OS/2OS/2OS/2OS/2OS';say'7H/2OS/2OS/2OS/2OS/2OS/2OS/2OS';say'5H/2OS/2HS   0HOH/0HSH20H';say'0H/HO0HCD Carousel Door0H2H';say'HS5H'ver'0HOH/1H 4H    ';say'0HBy Bill Esposito   0HSH29H**';say'2HUNREGISTERED5H**0H/HO9H';say'9H                 0H21HS3H'        ;say'11H                            40H  80HO';say'1H/30HSet-up new cd80HS';say'1H225H                              80H/';say'1HO30HFill file requests80H2';say'1HS27H                          80H';say'80HO1H/28H 30HLocal ';say'36HCD Carousel48H 80HS1H2'
  4. say'28H                           80H/1HO';say'30HReview error log80H21HS';say'26H                      80HO1H/';say'30HQuit     49H 80HS1H2';say'31H           80H/1HO30HSelect:80H2';say'1HS80HO1H/2OS/2OS/2OS/2OS/2';say'19HOS/2OS/2OS/2OS/2OS/2OS/2O';say'44HS/2OS/2OS/2OS/2OS/2OS/2OS/2';say'71HOS/2OS/2OS1H';;call syscurpos 20, 36;pull select;if select='S' then call cdconvrt.cmd 1;if select='F' then call cdmaint.cmd 1;if select='L' then call cdcar homedir 1 1 sysopfirst sysoplast ;if select='R' then call logs;if select='Q' then call quit;if select<>'S' then if select<>'F' then if select<>'L' then if select<>'Q' then call menu; quit:                                             ; exit                                           
  5. logs:;say'HOS/2OS/2OS/2OS/2OS/2';say'1HOS/2OS/2OS/2OS/2OS/2OS/2OS/';say'8H2OS/2OS/2OS/2OS/2OS/2OS/2OS/2';say'7HOS/2HS   0HOH/0HSH20H/';say'HO0HCD Carousel Door0H2HS';say'1H    'ver'      0HOH/1H 4H    0H';say'0HBy Bill Esposito   0HSH27H'  ;say'9H * UNREGISTERED *'    ;say'0H  0H/HO9H '       ;say'7H         0H21HS3H        '           ;say'22H                 40H  80HO1H/30HE';say'31Hrror log80HS1H225H'     ;say'30H                         80H/1HO30HR';say'31Hequest log       80H21HS';say'27H                          80HO1H/';say'28H 30HFill from error log80HS1H2';say'28H                           80H/1H';say'1HO30H                      80H21HS';say'26H                      80HO'
  6. say'1H/30HQuit     49H 80HS';say'1H231H           80H/1HO30HSelect:';say'80H21HS80HO1H/2OS/2OS/2OS/2';say'15HOS/2OS/2OS/2OS/2OS/2OS/2';say'39HOS/2OS/2OS/2OS/2OS/2OS/2OS';say'65H/2OS/2OS/2OS/2OS1H';;;;call syscurpos 20, 36;pull select;if select='E' then call errors;if select='R' then call errors;if select='Q' then call menu;if select='f' then call fill;;;                                                ; errors:                                        ; /* Read */                                     
  7.                                                 ; read:                                          ; ; if select = 'E' then file=homedir'errors.log'                       ; if select = 'F' then file=homedir'errors.log'                       ; if select = 'R' then file=homedir'request.log'                       ; if select = 'E' then type='Error'                       ; if select = 'R' then type='Request'                       ; if select = 'F' then type='Fill'                       ; ok=stream(file,c,'close')                      ; call sysfiletree file, 'err.', 'F'             ; if err.0=0 then call qdel                      ; x=1                                            ; loop:                                          ; y='1'                                          ; linein(file,1,0)                               ; '@cls'                                         ; loop2:                                         ; do until x > 23                                ; parse value linein(file) with disk nmi alias user level loc fulldirectory filename date time desc
  8.  say disk nmi alias user level loc fulldirectory filename date time desc        ; if type='Fill' then do;    say;    say 'Do you want to fill this request? (y,N)';    pull fy;    if left(fy,1)='Y' then call lineout homedir''disk'.req',nmi alias user level loc fulldirectory filename date time desc                   ;    if left(fy,1)<>'Y' then call lineout homedir'errors.tmp', disk nmi alias user level loc fulldirectory filename date time desc ; end; if lines(file)=''0'' then call qdel            ; /*  say 'Press the <ENTER> key to continue'    ;   pull enter                                   ;   call qdel                                    ; end     */                                     ;                                    ;   x=x+y;   end;   more:;     x=1;      say 'more? (Y,n)';       pull yn
  9.        if yn='N' then call qdel;        else;   call loop2;   call qdel;   qdel:;   ok=stream(file,c,'close');   if err.0=1 then do;     say;     say brt||yel'Do you want to delete the 'type' Log? (y,N)'cyan;     pull yn;     if yn='Y' then del file;     if type='Fill' then do;     ok=stream('errors.log',c,'close');     ok=stream('errors.tmp',c,'close');     '@copy errors.tmp errors.log >nul';     '@del errors.tmp >nul';     end;   end;   if err.0=0 then do;     '@cls'
  10.      say;     say brt||yel'There are no errors reported.' ;     say 'Press <ENTER> to continue.';  pull yn;end  ;call logs;more1:;say 'more? (Y,n)';pull yn;if yn='N' then if select='E' then signal logs;if yn='N' then if select='R' then signal logs;if yn='N' then call menu;;;IN.195;IN.196;IN.197;IN.198;IN.199;IN.200
  11.